survey <- read.csv("/Users/daniell2/Downloads/sed17-sr-tab001.csv", stringsAsFactors = FALSE)
survey$Doctorate.recipients <- gsub(",","", survey$Doctorate.recipients)
survey$Doctorate.recipients <- as.numeric(survey$Doctorate.recipients)
survey$Year <- as.ts(survey$Year)
suppressMessages(library(ggplot2))
suppressMessages(library(plotly))
g = ggplot(survey, aes(Year, Doctorate.recipients))
g = g + geom_line()
suppressMessages(ggplotly(g))